This Page is Inserted by IFW Indexing and Scanning 
Operations and is not part of the Official Record 

BEST AVAILABLE IMAGES 

Defective images vrtthin this document are accurate representation of the original 
documents submitted by the applicant. 

Detect, in the images include but are not limited to the items checks* 

□ BLACK BORDERS 

□ IMAGE CUT OFF AT TOP, BOTTOM OR SIDES 

□ FADED TEXT OR DRAWING 

□ BLURRED OR ILLEGIBLE TEXT OR DRAWING 

□ SKEWED/SLANTED IMAGES s 

□ COLOR OR BLACK AND WHITE PHOTOGRAPHS 

□ GRAY SCALE DOCUMENTS 

□ LINES OR MARKS ON ORIGINAL DOCUMENT 

□ REFERENCE(S) OR EXHIBIT(S) SUBMITTED ARE POOR QUALITY 

□ OTHER: , . — 



As rescanning these documents will not correct the imn 
problems checked, please do. not report these problems i 



Top level routine for parser 



Page 1 of 19 



GNAT COMPILER COMPONENTS 
PAR 
E o d y 
$Revision: 1.116 $ 



Copyright (C) 1992-1998 Free Software Foundation, Inc. 

— GNAT is free software; you can redistribute it and/or modify it under — 

— terms of the GNU General Public License as published by the Free Soft- — 
ware Foundation; either version 2, or (at your option) any later ver- — ■ 

— sion. GNAT is distributed in the hope that it will be useful, but WITH- — 

— OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY — 

— or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License — 

— for more details. You should have received a copy of the GNU General — 
Public License distributed with GNAT; see file COPYING. If not, write 

— to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, — 

— MA 02111-1307, USA. 

— GNAT was originally developed by the GNAT team at Mew York University. — 
■ it is now maintained by Ada Core Technologies Inc (http://www.gnat.com) . --- 



with 


Atree ; 


use 


Atree ; 


with 


Casing; 


use 


Casing; 


with 


Csets ; 


use 


Csets; 


with 


Debug; 


use 


Debug; 


wi th 


E lists ; 


use 


Elists; 


with 


Er rout ; 


use 


Err out; 


with 


Fname; 


use 


Fname ; 


with 


Lib; 


use 


Lib; 


wi th 


Namet; 


use 


Namet; 


wi th 


Nlists; 


u se 


Nlists; 


with 


Nmake; 


use 


Nmake; 


with 


Opt; 


use 


Opt; 


with 


Output; 


use 


Output; 


with 


Scans ; 


use 


Scans; 


with 


Sen; 


use 


Sen; 


with 


Sinput; 


use 


Sinput; 


with 


S input . L; 


use 


Sinput . L; 


with 


Sinf o; 


use 


Sinf o; 


wi th 


S names ; 


use 


S names; 


with 


Style; 






with 


Table; 







function Par (Configuration Pragmas : Boolean) return List_Id is 
Num_L i b r a r y __Un i t s : N a. t u r a 1 : - 0 ; 

— Count number of units parsed (relevant only in syntax check only mode/ 
since in semantics check mode only a single unit is permitted anyway) 

Unit_Node : Node_Id; 

Stores compilation unit node for current unit 

Save_Ada_83_Mode : Boolean; 

Saves state of Ada 8 3 mode switch for restore on exit (since it may 
get reset by occurrence of the Ada__8 3 or Ada_95 pragmas) . 



http://www.cs.nyu.edu/courses/springOO/G22.2130-001/par.html 



9/18/04 



Top level routine for parser 



Page 2 of 19 



Loop Block_ Count : Nat := 0; 

Counter used for constructing loop/block names (see the routine 
Par . Ch5 . Get__Loop_Block_Narne) 



— Error Recovery — 



When an error is encountered, a call is made to one of the Error_Msg 
routines to record the error. If the syntax scan is not derailed by the 
error (e.g. a complaint that logical operators are inconsistent in an 

— EXPRESSION) , then control returns from the Error^Msg call, and the 
parse continues unimpeded. 

If on the other hand, the Error_Msg represents a sxtuation from which 
the parser cannot recover locally, the exception Error Resync is raised 
immediately after the call to Er.ror_Msg. Handlers for Error_Resync 
are located at strategic points to resynchronize the parse. For example, 
when an error occurs in a statement, the handier skips to the next 
semicolon and continues the scan from there. 

Each parsing procedure contains a note with the heading "Error recovery" 

— which shows if it can propagate the Error_Resync exception. In order 
not to propagate the exception, a procedure must either contain its own 
handler for this exception, cr it must not call any other routines which 
propagate the exception. 

Note: the arrangement of Error__Resync handlers is such that it should 
never be possible to transfer control through a procedure which made 
an entry in the scope stack, invalidating the contents of the stack. 

Error_Resync : exception; 

Exception raised on error that is not handled locally, see above. 

Last_Resync_Point : Source_JPtr; 

The resynchrcnization routines in Par. Sync run a risk of getting 
stuck, in an infinite loop if they do not skip a token, and the caller 
keeps repeating the same resync call. On the other hand, if they skip 
a token unconditionally, some recovery opportunities are missed. The 
variable Last_Resync_Point records the token location previously set 

— by a Resync call, and if a subsequent Resync call occurs at the same 
location, then the Resync routine does guarantee to skip a token. 



---- Handling Semicolon Used in Place of IS 



The following global variables are used in handling the error situation 
of using a semicolon in place of IS in a subprogram declaration as in: 

procedure X (Y : Integer) ; 

Q : Integer; 
begin 

end; 

The two contexts in which this can appear are at the outer level, and 
within a declarative region. At the outer level, we know something is 
wrong as soon as we see the Q (or begin, if there are no declarations) , 
and we can immediately decide iy that the semicolon should have been IS. 

The situation in a declarative region is more complex. The declaration 
of Q could belong to the outer region, and we do not know that we have 
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an error until we hit the begin. It is still not clear at this point 
from a syntactic point of view that something is wrong, because the 

— begin could belong to the enclosing subprogram or package. However, we 
can incorporate a bit of semantic knowledge and note that the body of 

X is missing, so we definitely DO have an error. We diagnose this error 
as semicolon in place of IS on the subprogram line. 

— There are two styles for this diagnostic. If the begin immediately 
follows the semicolon, then we can place a flag {13 expected) right 
on the semicolon. Otherwise we do not detect the error until we hit 

— the begin which refers back to the line with the semicolon. 

To control the process in the second case, the following global 
variables are set to indicate that we have a subprogram declaration 
whose body is required and has not yet been found. The prefix SIS 
stands for "Subprogram IS" handling. 

3IS_Entry_Active : Boolean; 

Set True to indicate that an entry is active (i.e. that a subprogram 
declaration has been encountered, and no body for this subprogram has 
been encountered) . The remaining fields are valid only if this is True. 

SIS__Labl : Node__Id; 

Subprogram designator 

SIS Sloe : Source ^Ptr; 

— Source location of FUNCTION/ PROCEDURE keyword. 

3IS_Ecol : Co lurnn_N umber ; 

Column number of FUNCTION/ PROCEDURE keyword 

SIS__Sem:i.colon_Sloc : Source_Ptr; 

— Source location of semicolon at end of subprogram declaration 
SIS_Declaration_Node : Node_Id; 

— Pointer to tree node for subprogram declaration 

3 1 S_Mi s s i n g_S emi c o 1 on__Me s s a ge : E r ro r__Ms g__I d ; 

Used to save message ID of missing semicolon message (which will be 
modified to missing IS if necessary) . Set to No__Error__Msg in the 
normal . (non-error) case. 

Five things can happen to an active SIS entry 

1. If a BEGIN is encountered with an SIS entry active, then we have 
exactly the situation in which we know the body of the subprogram is 
missing. After posting an error message, we change the spec to a body, 
rechaining the declarations that intervened between the spec and BEGIN. 

2. Another subprogram declaration or body is encountered. In this 
case the entry gets overwritten with the information for the new 
subprogram declaration. We don ' t catch some nested cases this way, 
but it doesn't seem worth the effort. 

3. A nested declarative region {e.g. package declaration or package 
body) is encountered. The SIS active indication is reset at the start 
of such a nested region. Again, like case 2, this causes us to miss 
some nested cases, but it doesn't seen worth the effort to stack and 
unstack the SIS information. Maybe we will reconsider this if we ever 
get a complaint about a missed case :-) 

4. we encounter a valid pragma INTERFACE or IMPORT that effectively 
supplies the missing body. In this case we reset the entry. 
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5, We encounter the end of the declarative region without encoutering 
a BEGIN first. In this situation we simply reset the entry. We know 
that there is a missing body, but it seeras more reasonable to let the 
later semantic checking discover this. 



— Handling IS Used in Place of Semicolon — 



This is a somewhat trickier situation, and we can't catch it in all 
cases, but we do our best to detect common situations resulting from 
a "cut and paste" operation which forgets to change the IS to semicolon. 
Consider the following example: 

package body X is 
procedure A; 
procedure B is 
procedure C; 

procedure D is 
begin 

end; 
begin 

end; 

— The trouble is that the section of text from PROCEDURE B through END; 
consitutes a valid procedure body, and the danger is that we find out 
far too late that something is wrong (indeed most compilers will behave 
uncomfortably on the above example) . 

We have two approaches to helping to control this situation. First we 
make every attempt to avoid swallowing the last END; if we can be 
sure that some error will result from doing so. In particular, we won ' t. 
accept the END; unless it is exactly correct (in particular it must not 
have incorrect: name tokens), and we won't accept it if it is immediately 
followed by end of file, WITH or SEPARATE (all tokens that unrnistakeably 
signal the start of a compilation unit, and which therefore allow us to 
reserve the END; for the outer level.) For more details on this aspect 
of the handling, see package Par.Endh. 

If we can avoid eating up the END; then the result in the absense of 
any additional steps would be to post a missing END referring back to 
the subprogram with the bogus IS. Similarly, if the enclosing package 

— has no BEGIN, then the result is a missing BEGIN message, which again 
refers back to the subprogram header. 

Such an error message is not too bad (it's already a big improvement 
over what many parsers do), but it's not ideal, because the declarations 
following the IS have been absorbed into the wrong scope. In the above 
case, this could result for example in a bogus complaint that the body 
of D was missing from the package. 

To catch at least some of these cases, we take the following additional 
steps. First, a subprogram body is marked as having a suspicious IS if 
the declaration line is followed by a line which starts with a symbol 
that can start a declaration in the same column, or to the left of the 
column in which the FUNCTION or PROCEDURE starts (normal style is to 
indent any declarations which really belong a subprogram) . If such a 
subprogram encounters a missing BEGIN or missing END, then we decide 
that the IS should have been a semicolon, and the subprogram body node 
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is marked (by setting the Bad_Is__ Detected flag true. Note that we do 
not do this for library level procedures, only for nested procedures, 
since for library level procedures, we must have a body. 

The processing for a declarative part checks to see if the last 
declaration scanned is marked in this way, and if it is, the tree 
is modified to reflect the IS being interpreted as a semicolon. 



Parser Type Definitions and Control Variables 



The following variable and associated type declaration are used by the 
expression parsing routines to return more detailed information about 
the categorization of a parsed expression. 

type Expr_Form_Type is ( 

' EF_Simple_Name, — Simple name, i.e. possibly qualified identifier 
EF_Name, — Simple expression which could also be a name 

EF_Simple, --- Simple expression which is not call or name 

EF Range Attr, Range attribute reference 

EF_Non__Simple) ; — Expression that is not a simple expression 

Expr_Form : Expr_Form__Type; . 

The following type is used for calls to P Subprogram, P_Package, P__Task, 
P_Profected to indicate which of several possibilities is acceptable. 



type Pf _Rec is record 

Spcn : Boolean; 

Decl : Boolean; 

Gins : Boolean; 

Pbod : Boolean; 

Rnam : Boolean; 

Stub : Boolean; 

Fill : Boolean; 

Fi.12 : Boolean; 
end record; 
pragma Pack ( Pf Rec ) ; 



---- True if specification OK 
True if declaration OK 

— True if generic instantiation OK 

— True if proper body OK 

— True if renaming declaration OK 
True if body stub OK 

— Filler to fill to 8 bits 

— Filler to fill to 8 bits 



function T return Boolean renames True; 
function F return Boolean renames False; 



P f _De c l_Gi ns_?bod_Rnaraj3 tub 

Pf JDecl 

P f _D e c 1 __G i n s Pb o d_R n a m 
Pf_Decl_Pbod 
Pf_Pbod 
Pf Soon 



constant Pf_Rec 

Pf_Rec ! (F, T, T, T, T, T, F, F) 
constant Pf Rec : = 

™Pf__Rec r ( F, T, F, F, F, F r F, F) 
constant Pf_Rec : = 

Pf_Rec r (F, T, T, T, T, F, F, F) 
constant Pf_Rec : = 

PfJ.eC (F, T, F, T, F, F, F, F) 
constant Pf_Rec :~- 

PrRec' (F, F f F, T , * F, F, F , F) 
constant Pf_P.ec : — 

Pf_Rec r l (T, F, F, F, F, F, F, F) 
The above are the only allowed values of Pf Rec arguments 



type SS__Rec is record 
Sftm : Boolean; 
Eltm : Boolean; 
Extm ; Boolean; 
Or tm : Boolean; 
Sreq : Boolean; 



— ELSIF can terminate sequence 
ELSE can terminate sequence 

— EXCEPTION can terminate sequence 
~ OR can terminate sequence 

— at least one statement required 
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Tatm : Boolean; • — THEN ABORT can terminate sequence 

Whtrci : Boolean; — WHEN can terminate sequence 

Unco : Boolean; — Unconditional terminate after one statement 

end record; 
pragma Pack {SS_Re.c) ; 
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type End__Action_JType is ( 

Type used to describe the result of the Pop_End_Context call 

Accept_As_Scanned f 

Current end sequence is entirely c correct. In this case Token and 
the scar, pointer are left pointing past the end sequence (i.e. they 
are unchanged from the values set on entry to Pop_End_Context ) . 

Insert _And_Ac c ep t , 

Current end sequence is to be left in place to satisfy some outer 

— ' scope. Token and the scan pointer are set to point to the end 

token, and should be left there. A message has been generated 
indicating a missing end sequence. This status is also used for 
the case when no end token is present . 

S k i p__And_Acc ep t , 

The end sequence is incorrect (and an error message has been 

— posted) , but it will still be accepted. In this case Token and 
the scan pointer point back to the end token, and the caller 
should skip past the end sequence before proceeding. 

S k ip_And__Re j e c t ) ; 

The end sequence is judged to belong to an unrecognized inner 
scope. An appropriate message has been issued and the caller 
should skip past the end sequence and then proceed as though 
no end sequence had been encountered. 

End__Action : End_Action_Type; 

The variable set by Pop_End_Context call showing which of the four 
decisions described above is judged the best. 

Label_List : Elist_Id; 

List of label nodes for labels appearing in the current compilation. 
Used by Par. Labi to construct the corresponding implicit declarations. 



— Scope Table — 



The scope table, also referred to as the scope stack, is used to 
record the current scope context. It is organized as a. stack, with 
inner nested entries corresponding to higher entries on the stack. 
An entry is made when the parser, encounters the opening of a nested 
construct (such as a record, task, package etc.), and then package 
Par.Endh uses this stack to deal with END lines (including properly 
dealing with END nesting errors) . 
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type SS End Type is 



Type of end entry required for this scope. The last two entries are 
used' only in the subprogram body case to mark the case of a suspicious 
IS, or a bad IS {i.e. suspicions confirmed by missing BEGIN or END). 
See separate section on dealing with IS used in place of semicolon. 
Note that for many purposes E Name, E Suspicious Is and E Bad Is are 
treated the same (E_3uspicious_Is and E__Bad_Is are simply special cases 
of E_Name) . They are placed at the end of the enumeration so that a 
test for >= E_Name catches all three cases efficiently. 

(E__Dummy, — dummy entry at outer level 

E_Case, — END CASE; 

E_If, — END IF; 

E_Loop, — END LOOP; 

E__Record, — ■ END RECORD; 

E__ Select, — END SELECT; 

E__Name , — END [name]; 

E__Suspicious_Is, — END [name]; {case of suspicious IS) 

E_Bad_Is); — END [name]; (case of bad IS) 

The following describes a single entry in the scope table 

type Scope_Table__Ent ry is record 
Etyp : SS_End_Type; 

Type of end entry, as per above description 

1 r e q : Bo o 1 e a n ; 

— A flag indicating whether the label, if present, is required to 
appear on the end line. It is referenced only in the case of 
Etyp = E Name or E_Suspicious_Is where the name may or may not be 
required (yes for labeled block, no in other cases). Note that for 
all cases except begin, the question of whether a label is required 
can be determined from the other fields (for loop, it is required if 
it is present, and for the other constructs it is never required or 
allowed) . 

E c o 1 : C o 1 umn _N umb e r ; 

Contains the absolute column number (with tabs expanded) of the 
the expected column of the end assuming normal Ada indentation 
usage. If the RM_Column__Check mode is set, this value is used for 
generating error messages about indentation. Otherwise it is used 
only to control heuristic error recovery actions. 

Labi : Node_Id; 

This field is used only for the LOOP and BEGIN cases, and is the 
Node Id value of the label name. For all cases except child units, 
this value is an entity whose Chars field contains the name pointer 
that identifies the label uniquely. For the child unit case the Labi 
field references an N_Def ining_Program_Unit_Name node for the name. 
For cases other than LOOP or BEGIN, the Label field is set to Error, 
indicating that it is an error to have a label on the end line. 

Dec! : List_Id; 

Points to the list of declarations (i.e. the declarative part) 
associated with this construct. It is set only in the END [name] 
cases, and is set to No List for all other cases which do not have a 
declarative unit associated with them. This is used for determining 
the proper location for implicit label declarations. 

Sloe : Source_Ptr; 

Source location of the opening token of the construct. This is 
used to refer back to this line in error messages (such as missing 
or incorrect end lines) , The Sloe field is not used, and is not set, 
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if a label is present (the Labi field provides the text name of the 
label in this case, which is fine for error messages) . 

S_Is : Source_Ptr; 

S_Is is relevant only if Etyp is set to S_Suspicious__Is or 
— E_Bad Is. It records the location of the IS that is considered 

to be suspicious. 

Junk : Boolean; 

A boolean flag that is set true if the opening entry is the dubious 
result of some prior error, e.g. a record entry where the record 
keyword, was missing. It is used to suppress the issuing of a 
corresponding junk complaint about the end line (we do not want 
to complain about a missing end record when there was no record) . 
end record; 

— The following declares the scope table itself. The Last field, is the 

— 's-trgck point ery so that Scope. Table (Scope. Last) is the top entry. The 

— oldest entry, at Scope_Stack (0), is a dummy entry with Etyp set to 

E_Dummy, and the other fields undefined. This dummy entry ensures that 

— Scope Stack (Scope Stack_Ptr) .Etyp can always be tested, and that the 
so o.p.e stack p o i n t e r i s a 1 way s i n range. 



package Scope is new T. 
T ab I e__C omp o n e n t _T y p e 
T able Inde x T yp e 
Tab 1 e__L o w_B our) d 
Tab I e_ I n i t i a 1 
Table_lncrement 
Table Name 



ble. Table ( 

=> Scope_Table__Entry, 

=> Int, 

=> 0, 

=> 50, 

-> 100, 

=> "Scope") ; 



— Parsing Routines by Chapter — 



— Uncommented declarations in this section simply parse the construct 

— corresponding to their name, and return an ID value for the Node or 
List that is created. 



package Ch2 is 

function P Identifier return Node_Id; 

function P_Pragma return Node__Id; 

function P_Pragmas_Opt return List_Id; 

This function scans for a sequence of pragmas in other than a 
declaration sequence or statement sequence context. All pragmas 
can appear except pragmas Assert and Debug, which are only allowed 
in a declaration or statement sequence context. 

procedure P__Pragmas_Mlsplaced; 

Skips misplaced pragmas with a complaint 

p r o cedure P_P r a g ma s __Op t { L i s t : L i s t _I d ) ; 

Parses' optional pragmas and appends them to the List 
end Ch2; 

package Ch3 is 

Mi s s ing_Beg.in_Ms g : E r r o r_Ms g_l d ; 

— This variable is set by a call to ?_Declarative_Part , Normaly it 
is set to No_Error_Msg, indicating that no special processing is 
required by the caller. The special case arises when a statement 
is found in the sequence of declarations. In this case the Id of 
the message issued ("declaration expected" } is preserved in this 
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variable, then the caller can change it. to an appropriate missing 
begin message if indeed the BEGIN is missing. 
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procedure P_Component_I terns (Decls : List__Id) ; 

Scan out one or more component items and append them to the 
qiven list. Only scans out more than one declaration in the 
case where the source has a single declaration with multiple 
defining identifiers. 

function Init Expr_Opt (P : Boolean := False) return Node Id; 

If an initialization expression is present (:= expression), then 
it is scanned out- and returned, otherwise Empty is returned if no 
initialization expression is present. This procedure also handles 
certain common error cases cleanly. The parameter P indicates if 
a right paren can follow the expression (default = no right paren 

— allowed) . 

procedure Skip_Declaration (S : List_Id) ; 

-- -Used when scanning statements to skip past a mispaced declaration 
The declaration is scanned out and appended to the given list. 

— Token is known to be a declaration token {in Token_Class_Dec.lk) 
on entry, so there definition is a declaration to, be scanned, 

function P_Subtype_Indication (Subtype_Mark : Node_Id) return Node_Id; 
This version of P Subtype Indication is called when the caller has 
already scanned out the subtype mark which is passed as a parameter. 

function P_Subtype_Marfc_At tribute (Type_Node : Node_Id) return Node_Id; 
Parse a subtype mark attribute. The caller has already parsed the 
subtype mark, which is passed in as the argument, and has checked 
that the current token is apostrophe. 

end Ch3; 

package Ch4 is 



function 


P_ 


Ag g re gate 


return 


Node 


Id; 


f uncti on 


P 


Exp ression 


return 


Node 


Id; 


function 


P_ 


Expression No Right Paren 


return 


Node 


Id; 


function 


P~ 


Expression Or Range_At tribute 


return 


Node 


"id; 


function 


p . 


Function Name 


return 


Node 


Id; 


function 


P^ 


_Name 


ret urn 


Node 


Id; 


function 


P_ 


Qua 1 i f i ed S imp! e_Name 


ret urn 


Node 


Id; 
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function P Qualified ^Simple JName Resync return Node Id 

f u tic: t i on P_S i rnp 1 e_E x p r e s s i o n re t u r n No de_I d 

function P_Simple_Expression_Or_Range_At tribute return Node_Id 



function P_QuaIif ied__Expression 
( Subtype^ Mark : Node _ Id) 
return Node_Id; 
This- routine scans out a qualified expression when the caller has 
already scanned out the name and apostrophe of the construct. 



end Ch4 ; 



package Ch5 is 



function P_S tat erne nt_Name (Name__Node : Node__Id) return Node__Id; 

Given a node representing a name {which is a call) f converts it 
t o t h e s y n tact i c ally co r r e s p o nd i n g p roce d u re c a 1 1 s t a t erne n t: . 

function P__Sequence_Of_Statements (SS_Flags : SS__Rec) return List_Id; 
The argument indicates the acceptable termination tokens. 
See body in Par.ChS for details of the use of this parameter. 

procedure Parse_Decls_Begin_End (Parent : Node_Id) ; 

Parses declarations and handled statement sequence, setting 
fields of Parent node appropriately. 

end Ch5; 



package Ch6 is 



function 


P_ 


Designator 


return 


Node 


JLd 


function 


P 


Defining P r o g r am U n i t_ Name 


return 


Node 


Id 


function 


P. 


Formal Part 


ret urn 


List 


"id 


function 


P_ 


Parameter Profile 


return 


Lis t_ 


Id 


function 


P~ 


Return Statement 


return 


Node_ 


Id 


function 


P~ 


Subprogram Specification 


return 


Node 


Id 



procedure P__Mode {Node : Node_Id) ; 

Sets In_Fresent and/or Out_Present flags in Node scanning past 
IN, OUT or IN OUT tokens in the source. 



function P Subprogram (Pf Flags : Pf Rec) return Node Id; 

Scans out any construct starting with either of the keywords 
PROCEDURE or FUNCTION. The parameter indicates which possible 
possible kinds of construct (body, spec, instantiation etc.) 
are permissible in the current context. 



end Cho; 

package Ch7 is 

function P_Package {Pf_Flags : Pf_Rec) return Node__Id; 

Scans out any construct starting with the keyword PACKAGES . The 
parameter indicates which possible kinds of construct (body, spec, 
i n s t a n t :i a t i on etc.) are p e rmi s s i b 1 e i n t h e current c o n text. 

end Ch7; ' . 



package ChS is, 

function P__Use__Clause return Node__Id; 

end Ch8; 



package Ch9 is 

function P Abort Statement 
function P_Abortabi e_Part 
f un c t i o n P_Ac c e p t _S t a t erne n t: 



return Node Id; 
return Node_Id; 
return Node Id; 
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function 


P 


Del a y 3 1 a t erne n t 


return 


Node_ 




function 


p _ 


Entry Body 


ret urn 


Node 


Id 


function 


P* 


Protected 


return 


Node_ 


"id 


function 


P_ 


_Requeue_Statement 


return 


Node_ 


Id 


function 


P_ 


_Select Statement 


return 


Node 


Jd 


function 


p .. 


"Task 


return 


Node 


"id 


function 


P 


Terminate Alternative 


return 


Node 


Id 



end Ch9; 



package ChlO is 

function P Compilation Unit. return Node_ Id; 

end ChlO; 



package Chll is 

function P_Handled_JSequence_Of_Statements return Node__Id; 

function P Raise Statement return Node Id; 

function Parse_Exception_Handlers return List_Id; 

Parses the partial construct EXCEPTION followed by a list of 
exception handlers which appears in a number of productions, 
and returns the list of exception handlers. 



end Chll; 
package Chl2 is 

function P Generic return Node Id; 

f uncti on P_Generic_Actual_Part_Opt return Lis t_Id ; 

end Chi 2; 

package Chl3 is 

function P Representation Clause return Node__Id; 

function P_Code__Staternent ( Subtype_Mark : Node_Id) return Node_Id; 
Function to parse a code statement. The caller has scanned out 
the name to be used as the subtype mark (but has not checked that 
it is suitable for use as a subtype mark, i.e. is either an 
identifier or a selected component) . The current token is an 
apostrophe and the following token is either a left: paren or 
RANGE (the latter being an error to be caught by P_Code_Statement . 
end Chi 3; 



Note: the parsing for annexe J features (i.e. obsolescent features) 
is found in the logical section where these features would be if 
they were not obsolescent. In particular: 

Delta constraint is parsed by P Delta Constraint {3.5.9} 
^ ^ At c: 1 a u s e i s p arse d b y P__A t _C 1 a u s e ( 1 3.1) 

Mod. clause is parsed by P_Mod__Clause (13.5.1) 



— End Handling — 



Routines for handling end lines, including scope recovery 
package Endh is 

function Check_End return Boolean; 

Called when an end sequence is required. In the absence of an error 
situation, Token contains Tok_End on entry, but. in a missing end 
case, this may not be the case. Pop End Context is used to determine 
the appropriate action to be taken. The returned result is True if 

— an End. sequence was encountered and False if no End sequence was 
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present. This occurs if the END keyword encountered was determined 
to be improper and deleted (i.e. Pop End Context set End__Action to 
Skip_And_Re j ect ) . Note that the END sequence includes a semicolon, 
except in the case of END RECORD, where a semicolon follows the END 
RECORD, but is not part of the record type definition itself. 

p r o c e du r e E n d._ 3 k i p ; 

Skip past an end sequence. On entry Token contains Tok_End, and we 
we know that the end sequence is syntactically incorrect, and that 
an appropriate error message has already been posted. The mission is 
simply to position the scan pointer to be the best guess of the 
position after the end sequence. We do not issue any additional 
error messages while carrying this out. 

procedure End_Statements ; 

Called when an end is required or expected to terminate a sequence 
of s t a t erne n t s . The c a 1 1 e r h a s a 1 r e a d y ma d e an a p p r op r i a t e e n t r y i n 
the Scope. Table to describe the expected form of the end. This can 
only be used in cases where the only appropriate terminator is end. 

procedure Pop End Context; 

Pop_End_Context is called after processing a construct, to pop 
the top entry off the end stack. It decides on the appropriate action 
to take, signalling the result by setting End__Action as described in 
the global variable section. 

end Endh; 



Resyrichronization After Errors — - 



These procedures are used to resynchroni. ze after errors. Following an 
error which is not immediately locally recoverable, the exception 
Error Resync is raised. The handler for Error_Resync typically calls 
one of these recovery procedures to resynchronize the source position 
to a point from which parsing can be restarted. 

Note: these procedures output an information message that tokens are 
being skipped, but. this message is output only if the option for 
Multiple Errors Per Line is set in Options. 

package Sync is 

procedure Resync__Choice; 

Used if an error occurs scanning a choice. The scan pointer is 
advanced to the next vertical bar, arrow, or semicolon, whichever 
comes first. We also quit if we encounter an end of file. 

procedure Re s y n c_E xpressicn ; 

Used if an error is detected during the parsing of an expression. 
It skips past tokens until either a token which cannot be part of 
an expression is encountered (an expression terminator) , or if a. 
comma or right parenthesis or vertical bar is encountered at the 
current parenthesis level (a parenthesis level counter is maintained 
to carry out this test} . 

p r o c e du re R e s y n c__ P a s t _s emi c o 1 o n ; 

Used if an error occurs while scanning a sequence of declarations. 
The scan pointer is positioned past the next semicolon and the scan 
resumes. The scan is also resumed on encountering a token which 
starts a declaration (but we make sure to skip at least one token 
in this case, to avoid getting stuck in a loop) . 
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p rocedure Resync__Past__Semicolori_Or_To_Loop Or Then; 

Used if an error occurs while scanning a sequence of statements. 
The scan pointer is positioned past the next semicolon, or to the 
next occurrence of either then or loop, and the scan resumes. 

procedure Resync_To When; 

Used when an error occurs scanning an entry index specification. 
The scan pointer is positioned to the next WHEN (or to IS or 
semicolon if either of these appear before WHEN, indicating 
another error has occurred) . 

procedure Resync_jSernicolon_List ; 

Used if an error occurs while scanning a parenthesized list of items 

----- separated by semicolons. The scan pointer is advanced to the next 
semicolon or right parenthesis at the outer parenthesis level, or 
to the next: is or RETURN keyword occurence, whichever comes first. 

procedure Resync_Cunit ; 

Synchronize to next token which could be the start of a compilation 
unit, or to the end of file token. 

end Sync; 



— Token Scan Routines — 



Routines to check for expected tokens 
package Tchk is 

Procedures with names of the form T_xxx, where Tok_xxx is a token 
name, check that the current token matches the required token, and 
if so, scan past it. If not, an error is issued indicating that 
— the required token is not present (xxx expected) . In most cases, the 
scan pointer is not moved in the not-found case, but there are some 
exceptions to this, see for example T_Id, where the scan pointer is 
moved across a literal appearing where an identifier is expected. 



procedure 




Abort ; 


procedure 


T* 


Arrow; 


procedure 




_At; 


procedure 


T 


Body; 


procedure 




Box; 


procedure 




Colon; 


p rocedure 


T 


Colon Equal; 


procedure 




Comma ; 


procedure 


T 


Dot Dot; 


procedure 


T 


For; 


procedure 




Greater Greater; 


procedure 


T 


identifier-; 


procedure 


rp 


_In; 


procedure 




_Is; 


procedure 


T 


__Lef t_Paren; 


procedure 




Loop; 


procedure 


rri 


_Mod; 


procedure 


T 


New; 


procedure 


m 


_0f ; 


procedure 


m 

J- 


_0r; 


procedure 


i 


Private; 


procedure 


J. 


_Range; 


procedure 


T 


Record; 
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procedure T JRight_ Par en; 
procedure T__Semicolon; 
procedure T_Then; 
procedure T_Type; 
procedure T_Use; 
procedure T When; 
p r o c: e du r e T_Wi t h ; 

Procedures have naraes of the form TF_xxx f where Tok_xxx is a token 
name check that the current token matches the required token, and 
if so, scan past. it. If not, an error message is issued indicating 
that the required token is not present (xxx expected) . 

If the missing token is at the end of the line, then control returns 
immediately after posting the message. If there are remaining tokens 
on the current line, a search is conducted to see if the token 
appears later on the current line, as follows: 

— A call to Scan_Save is issued and a forward search for the token 
is carried out. If the token is found on the current line before a 
semicolon, then it is scanned out and the scan continues from that 
point. If not the scan is restored to the point where it was missing. 

procedure TF_Arrow; 
procedure TF_Is; 
procedure TF Loop; 
p r o c: e du re T F_R e t u r n ; 
p r o c: e d u re T F_3 emi c o 1 o n ; 
procedure TF_Then; 
procedure TF_Use; 

end Tchk; 



--- Utility Routines 



package Util is 

function Bad_Spelling_Of (T : Token_Type) return Boolean; 

This function is called in an error situation. It checks if the 
current: token is an identifier whose name is a plausible bad 
spelling of the given keyword, token, and if so, issues an error- 
message, sets Token from T, and returns True, otherwise Token is 
unchanged, and False is returned. 

procedure Check_Misspel 1 ing_Of (T : TokenJType) ; 

p r a gma In 1 i n e ( C h e c k_M i s s p e 1 1 i n g_0 :f ) ; 

This is similar to the function above, except that it does not 
return a result. It is typically used in a situation where any 
identifier is an error, and it makes sense to simply convert it 
to the given token if it is a plausible misspelling of it. 

procedure Check_95_Keyword (Token_J?5, Next : Token_Type) ; 

This routine checks if the token after the current one matches the 
Next argument. If so, the scan is backed up to the current token 
and Token_Type is changed to Token_95 after issuing an appropriate 
error message ("{Ada 83) keyword xx cannot be used"). If not, 
the scan is backed up with Token_Type unchanged. This routine 
is used to deal with an attempt, to use a 95 keyword in Ada 8 3 
mode. The caller has typically checked that the current token, 
an identifier, matches one of the 95 keywords. 
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procedure Check ^simple Expression (£ : Node Id) ; 

Given an expression £, that has just been scanned, so that Expr_Form 
is stiil set, outputs an error if E is a non-simple expression. E is 

— not modified by this call. 

procedure Check_ Simple Expression In Ada 83 (E : Node__Id) ; 

Like Check_Simple__Exp:ression, except that the error message is only 
given when operating in Ada 83 mode, and includes "in Ada 83". 

function Check_Subtype_Mark (Mark : Node_Id) return Ncde_Id; 

Called to check that a node representing a name (or call) is 
suitable for a subtype mark, i.e, that it is an identifier or 
a selected component. If so, or if it is already Error, then 
it is returned unchanged. Otherwise an error message is issued 
and Error is returned. 

function Comma_Preseht return Boolean; 

Used in comma delimited lists to determine if a comma is present, or 
can reasonably be assumed to have been present (an error message is 
qenerated in the latter case) . If True is returned, the scan has been 
positioned past the comma. If False is returned, the scan position 
is unchanged. Note that all comma -de limited lists are terminated by 
a r i g h t p a r e n , s o t: h e o n 1 y 1 e g i t i m a t e t o k e n s wh en C omma__P r e s e n t; 1. s 
called are right par en and comma. If some other token is found, then 
Comma__Present has the job of deciding whether it is better to pretend 
a comma was present, post a message for a missing comma and return 
True, or return False and let the caller diagnose the missing right 

--' parenthesis. 

procedure Discard__Junk_Node (N : Node__Id) ; 

procedure Discard Junk List (L ; List Id) ; 

pragma Inline (Discard__Junk__Node ) ; 

p r a gma I n 1 i n e ( D i sea r d__ Ju n k_L i s t ) ; 

These procedures do nothing at all, their effect is simply to discard 
the argument. A typical use is to skip by some junk that is not 
expected in the current context. 

procedure Ignore {T : Token__Type) ; 

If current token matches T, then give an error message and skip 
past it, otherwise the call has no effect at all. T may be any 
reserved word token, or comma, left or right paren, or semicolon. 

function Is_Reserved_Ident i f ier return Boolean; 

Test if current token is a reserved identifier. This test is based 
on the token being a keyword and being spelled in typical identifier 
style (i.e. starting with an upper case letter). 

p r o c e du re N o__C o n s t r a i n t ; 

Called in a place where no constraint is allowed, but one might 
appear due to a common error (e.g. after the type mark in a procedure 
parameter. If a constraint is present, an error message is posted, 
and the constraint is scanned and discarded. 

function No_Right_Paren (Expr : Node_Id) return Node_Id; 

Function to check for no right paren at end of expression, returns 
its argument if no right paren, else flags paren and returns Error. 

p r o c: e du re Pus h_S c op e_S t a c k ; 

pragma Inline (Push_Scope_Stack) ; 

Push a new entry onto the scope stack. Scope. Last (the stack pointer)" " 
is incremented. The Junk field is preinitialized to False. The caller 
is expected to fill in all remaining entries of the new new top stack 
entry at Scope. Table ( Scope . Last ) . 
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procedure pop_Scope__Stack ; 

Pop an entry off the top of the scope stack. 3cope_Last (the scope 
table stack pointer) is decremented by one. It is a fatal error to 
try to pop off the dummy entry at the bottom of the stack (i.e. 
Scope. Last must be non-zero at the time of call). 

function Separate_Present return Boolean; 

Determines if the current token is either Tok_Separate, or an 
identifier that is a possible misspelling of "separate" followed 
by a semicolon. True is returned if so, otherwise False. 

function Token_Is_At_Start_Of_Line return Boolean; 
pragma Inline (Token_Is__At_Start_Cf_Line) ; 

Determines if the current token is the first token on the line 

end Util; 



Specialized Syntax Check Routines 



function Prag (PragmaJSFode : Node__Id; Semi : Source_Pt:r) return Node_Id; 
This function is passed a tree for a pragma that has been scanned out. 
The pragma is syntactically well formed according to the general syntax 
for pragmas and the pragma identifier is for one of the recognized 

— pragmas. It performs specific syntactic checks for specific: pragmas. 
The result is the input node if it is OK, or Error otherwise. The 
reason that this is separated out is to facilitate the addition 
of implementation defined pragmas. The second parameter records the 
location of the semicolon following the pragma {this is needed for 
correct processing of the List and Page pragmas) . The returned value 
is a copy of Pragma_Node, or Error if an error is found. 



— Subsidiary Routines 



procedure Labi; 

This procedure creates implicit label declarations for all label that 
are declared in the current, unit. Note that, this could conceptually 
be done at the point where the labels are declared, but it is tricky 
to do it then, since the tree is not hooked up at the point where the 
label is declared (e.g. a sequence of statements is not yet attached 
to its containing scope at the point a label in the sequence is found) 

procedure Load; 

This procedure loads all subsidiary units that; are required by this 
unit, including with 1 ed units, specs for bodies, and parents for child 
units. It does not load bodies for inlined procedures and generics, 
since we don't know till semantic analysis is complete what is needed. 



— Stubs — 



The package bodies can see all routines defined in all- other subpackages 

use Ch2; 
use Ch3; 
use Ch4; 
use Ch5; 
use Ch6; 
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use Ch7; 
use ChS; 
use Ch9; 
use ChlO; 
use Chll; 
use Chi 2; 
use Chi 3; 

use Endh; 
use Tchk; 
use Sync- 
use Util; 



package 
package 
package 
pac kage 
package 
package 
package 
package 
package 
package 
package 
package 



body 
body 
body 
body 
body 
body 
body 
body 
body 
body 
body 
body 



Ch2 is separate; 
ChS is separate; 
Ch4 is separate; 
Ch 5 is s e p a r: a t e ; 
Ch6 is separate; 
Ch7 is separate; 
ChS is separate; 
Ch9 is separate; 
ChlO is separate; 
C h 1 1 i s separ a t e ; 
Chl2 is separate; 
Chi 3 is separate ; 



package body Endh is separate; 
package b'o d y T c h k i s s e p a r a t e ; 
package body Sync is separate; 
package body Util xs separate; 



function Prag ( Pragma _N ode 
is separate; 



Node Id; Semi 



Source Ptr) return Node Id 



procedure Labi is separate; 
procedure Load is separate; 



— Par — 



This function is the parse routine called at the outer level. It parses 
t h e c u r r e n t c oinp i 1 a t i o n u n i t and a dd s i mp 1 i c i t 1 a b el de c 1 a r a t i o n s . 



begin 

Deal with configuration pragmas case first 

i f Con f i g u r a t i o n _ P r a gm a s then 
declare 

Eccimt : constant Int := Errors_Detected; 

Pragmas : List Id : ~ Empty List; 

P Node : Node Id; ' 



begin 
loop 

if Token = Tok EOF then 
r e t u rn P :t: a gma s ; 

elsif Token /- Tok_Pragma then 

Error_Msg_SC ("only pragmas allowed in gnat.adc") ; 
return Error List; 

else 
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P___Node := P Pragma; 

if Errors_Detected > Ecount. then 

return Error_List; 
end if; 

if Chars (P_Node) > Last_Conf iguration_Pragma_Name 
and then Chars (P_Node) /- Name_Source_Ref erence 
then 

Error_Msg_SC 

("only configuration pragmas allowed in gnat.adc") ; 
return E r r o r _L i s t ; 
end if; 



Append (P_Node, Pragmas) ; 
end if; 
end loop; 
end; 

Normal case of compilation unit 



Save Ada 8 3 Mode Check Ada 95 (File Name (CurrentjGU.rce_Fi.Ie) ) ; 



Special processing for language defined units. For this purpose 
we do NOT consider the renamings in annex J as predefined. That 
allows users to compile their own versions of these files, and 
in particular, in the VMS implementation, the DEC versions can 
foe substituted for the standard Ada 9!5 versions, 

if Is Predefined File Name 

(Fname ■=> File_Name (Current_Source__Fi le) , 
Renamings_Included => False) 

then 

If this is the main unit, disallow compilation unless the -gnatg 
( GNAT mode) switch is set {from a user point of view, the rule i 
that language defined units cannot be recompiled) . 

However, an exception is s-rpc, and its children. We test this 
by looking at the character after the minus, the rule is that 
System. RPC and its children are the only children in System 
whose second level name can start with the letter, r. 

Get_Name__String (File_Narne (Current_Source_File) ) ; 

if (Name Len < 3 or else Name Buffer (1 .. 3) /= "s-r") 
and then Current_Source_Unit ™ Main_Unit 
and then not GNATjMode 

and then Opera ting_Mode = Genera te_Code 
then 

Error Msg SC ("language defined units may net be recompiled") ; 
end 'if; 
end if; 

Initialize scope table and other parser control variables 

C o mp i 1 e r_S t ate P a r s i n g ; 

Scope . I nit; 

Scope . Increraent_Last ; 

Scope. Table (O).Styp := E_Dummy; 

SISjEntry Active := False; 

Last_Resync_J?oint :~ No_Location; 



e 



1 se 
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Label List := New__Elmt List:; 
Uni t__Node : ~ P_Compilation_Unit; 

Now that we have completely parsed the source file, we can 
complete the source file table entry. 

C o mp 1 e t e__S ou.rce_F i 1 e E n t r y ; 

An internal error check, the scope stack should now be empty 

pragma Assert (Scope. Last = 0) ; 

Remaining steps are to create implicit label declarations and to 
load required subsidiary sources. These steps are required only 
if we are doing semantic checking. 

if OperatingJMode /= CheckjSyntax or else Debug_Flag__F then 

Par. Labi ; 

Par. Load; 
end if; 

Restore settings of switches saved on entry 

Ada_83 := Save_Ada_83_Mode; 
Ada_95 := not Ada_83; 

Set Comes From Source__Def ault (False); 
retu rn Emp t: y _L i s t ; 
end if; 

end Par; 



~ REVISION HISTORY — 



revision 1.114 
-- date: Men Apr 27 08:17:00 1998; author: dewar 
Remove unused withs 



r e vi s i on 1.115 
— date: Sun Jun 21 11:37:37 1998; author: dewar 
Minor reformatting 



revi s i on 1 . 1 1 6 
— date: Men Aug 10 17:36:31 1998; author: dewar 
Remove use of Features 

(Is_Bad_Speliing) : Moved to g-speche.ads 



New changes after this line. Each line starts with: " — 
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